home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr48 / ifp1s157.zip / PAGE_21.PAS < prev    next >
Pascal/Delphi Source File  |  1993-06-26  |  1KB  |  39 lines
  1. unit page_21;
  2.  
  3. interface
  4.  
  5. uses crt, ifpglobl, ifpcomon;
  6.  
  7. procedure page21;
  8.  
  9. implementation
  10.  
  11. procedure page21;
  12.   var
  13.     xbyte: byte;
  14.  
  15.   begin
  16.   TextColor(White);
  17.   GotoXY((twidth div 2) - 15, 1);
  18.   Writeln('Thank You for using INFOPLUS!!');
  19.   Writeln;
  20.   TextColor(LightCyan);
  21.   Writeln('  If you have any questions, bug reports, or suggestions, I can be');
  22.   Writeln('reached at the following places:');
  23.   Writeln;
  24.   TextColor(LightRed);
  25.   Writeln('Internet       : andyross@infopls.chi.il.us');
  26.   Writeln('UUCP           : uunet!infopls!andyross');
  27.   Writeln('CompuServe     : >INTERNET:andyross@infopls.chi.il.us');
  28.   Writeln;
  29.   Writeln('Infoplus BBS   : (708)537-0247 (14400/9600/2400/1200 v32bis/v42bis/MNP)');
  30.   Writeln('Beacon         : (708)615-0845 (2400/1200)');
  31.   Window(1, tlength - 2, twidth, tlength - 2);
  32.   xbyte:=TextAttr;
  33.   TextColor(White);
  34.   TextBackground(Brown);
  35.   ClrScr;
  36.   Write('INFOPLUS ', qversion, ', by Andrew Rossmann, ' + qdate);
  37.   TextAttr:=xbyte;
  38.   end;
  39. end.